Here's what I have:

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request;
use MIME::Base64;
use LWP::Debug qw(+);

sub getItemsFromSharepoint {
# use GetListItems webservice on sharepoint

my $url = 'http://portal01/';
my $ua = new LWP::UserAgent(keep_alive=>1);
$ua->credentials('portal01:80','',"domain\\username", 'password');

$request = HTTP::Request->new(GET=>$url);
print "--Performing request now...-----------\n";
$response = $ua->request($request);
print "--Done with request-------------------\n"; if
($response->is_success) {print "It worked!->" . $response->code . "\n"}
else {print "It didn't work!->" . $response->code . " " .
$response->content . "\n"}

} 

###########################################
mssql
 --- snip ---
$DBH = DBI->connect("DBI:ODBC:$DSN") or die("connecting:
$DBI::errstr");
$query = "SELECT StoreID, TransactionNumber FROM Transaction";
$sth = $DBH->prepare($query) or die("preparing: ", $DBH->errstr);
$sth->execute or die("executing: ", $sth->errstr);
--- snip --- 

##############################

On my Windows NT4 Workstation computer I have used the DBI::ODBC module to
access a SQL Server7 database
Like this:

use DBI;

$ds = "dbi:ODBC:sample";
$u = "username";
$p = "somepwd";

$dbh = DBI->connect($ds,$u,$p) || die $DBI::errstr;

This assumes that the MS SQL client software is installed and that a ODBC
Data source is defined.